visual_show2.asp 星梦奇缘交友网 1 - ASP源码程序

www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/visual_show2.asp

    <!--#include file="conn.asp"-->
<!--#include file="config.asp" -->
<!--#include file="const.asp" -->
<!--#include file="char.asp" -->
<!--#include file="Visual_const.asp"-->
<% '=========================================================
' File: visual_show2.asp
' Version:3.0
' Date: 2005-10-29
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 920520.com All rights reserved.
' Web: http://www.920520.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
response.Clear()
dim UserName,bgcolor,showtype,imagesize,Bdid
username = checkStr(request("username"))
bgcolor = checkStr(request("bgcolor"))
Bdid=checkStr(request("boardid"))
if username = "" then username = MemberName
response.Write("<!--920520.com提供-->"&vbcrlf)
if username <> "" then
	if request("type") =1 then
		showtype = true
		imagesize = 80
	else
		showtype = false
		imagesize = 110
	end if
	call ShowUserVisual70(UserName,imagesize,bgcolor,showtype,Bdid)
else
	response.Write("<html><head><title></title></head><body style='" & bgcolor & "'>")
	response.Write("</body></html>")
end if
response.Write("<!--920520.com提供-->"&vbcrlf)
%>